www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminshop\vieworder.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <% if find_dataw("qitashezhi123","0",3)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if %> <title>查看订单</title> <link href="../images/css.css" rel="stylesheet" type="text/css"> <% dim goods,username goods=request.QueryString("dan") username=request.QueryString("username") set rs=server.CreateObject("adodb.recordset") rs.open "select nd_prod.id,nd_prod.title,nd_prod.price1,nd_prod.price2_gradelist,ND_SHOP_orders.actiondate,ND_SHOP_orders.sex,ND_SHOP_orders.realname,ND_SHOP_orders.recepit,ND_SHOP_orders.goods,ND_SHOP_orders.postcode,ND_SHOP_orders.comments,ND_SHOP_orders.paymethord,ND_SHOP_orders.deliverymethord,ND_SHOP_orders.state,ND_SHOP_orders.paid,ND_SHOP_orders.score,ND_SHOP_orders.useremail,ND_SHOP_orders.usertel,ND_SHOP_orders.address,ND_SHOP_orders.productnum from nd_prod inner join ND_SHOP_orders on nd_prod.id=ND_SHOP_orders.id where ND_SHOP_orders.username='"&username&"' and goods='"&goods&"' ",conn,1,1 if rs.eof and rs.bof then response.write "<center>此订单中已有商品被管理员删除,无法处理,请手动删除此订单! " response.write "<input type=button name=Submit3 value=删除订单 onClick=""location.href='save.asp?action=del&dan="&goods&"&username="&username&"'""> </center>" response.End end if %> <table width="99%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#fbf4f4"> <tr> <td><table width="100%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF"> <tr> <td colspan="2" align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="90%" align="center">订单号:<%=goods%> ,详细资料:</td> <td width="10%" align="center"> <input type="button" name="Submit4" value="打 印" onClick="javascript:window.print()"> </td> </tr> </table></td> </tr> <tr> <td>订单状态:</td> <td width="80%"> <table width="98%" align="center" border="0" cellspacing="1" cellpadding="0" bgcolor="#fbf4f4"> <form name="orderstate" method="post" action="save.asp?dan=<%=goods%>&action=save&username=<%=username%>"> <tr bgcolor="#FFFFFF"> <td > <% grade() %> <input type="submit" name="Submit" value="修改订单状态"></td> </tr> </form> </table></td> </tr> <tr> <td width="12%" valign="top">商品列表:</td> <td> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#fbf4f4"> <tr align="center" bgcolor="#fbf4f4" height="20"> <td WIDTH="40%" bgcolor="#fbc2c2">商品名称</td> <td WIDTH="5%" bgcolor="#fbc2c2">数量</td> <td WIDTH="10%" bgcolor="#fbc2c2">市场价</td> <td WIDTH="10%" bgcolor="#fbc2c2">购买会员的价格</td> <td WIDTH="10%" bgcolor="#fbc2c2">积分</td> <td WIDTH="10%" bgcolor="#fbc2c2">金额小计</td> </tr> <%dim iii,jjj do while not rs.eof%> <tr bgcolor="#FFFFFF" align="center" height="20"> <td align="left"> <%=trim(rs("title"))%></td> <td><%=rs("productnum")%></td> <td><%=rs("price1")%>元</td> <td><%=cdbl(rs("paid"))/clng(rs("productnum"))%>元</td> <td><%=rs("score")%>分</td> <td><%=rs("paid")%>元</td> </tr> <% iii=rs("paid")+iii jjj=rs("score")+jjj rs.movenext loop rs.movefirst%> <tr> <td colspan="7" bgcolor="#FFFFFF" align="right" height="20">您的送货方式是: <%' dim rs2 set rs2=server.CreateObject("adodb.recordset") rs2.Open "select * from delivery where deliveryid="&int(rs("deliverymethord")),conn,1,1 if rs2.eof and rs2.bof then response.write "方式以被删除" response.write " 附加费用:0元" response.write " 金额总计:"& iii &"元" else response.write trim(rs2("subject")) response.write " 附加费用:<font color=red>"&rs2("fee")&"</font> 元" response.write " 金额总计:<font color=red>"&iii+rs2("fee")&"</font> 元,获得积分:<font color=red>"&jjj&"</font> 分" end if rs2.Close set rs2=nothing %> </td> </tr> </table></td> </tr> <tr> <td height="10"></td> </tr> <tr> <td nowrap>下单用户</td> <td> </td> </tr> <tr> <td nowrap>订货人姓名:</td> <td><%=trim(rs("realname"))%></td> </tr> <tr> <td>收货人姓名:</td> <td><%=trim(rs("recepit"))%></td> </tr> <tr> <td>收货地址:</td> <td><%=trim(rs("address"))%></td> </tr> <tr> <td>邮政编码:</td> <td><%=trim(rs("postcode"))%></td> </tr> <tr> <td>联系电话:</td> <td><%=trim(rs("usertel"))%></td> </tr> <tr> <td>电子邮件:</td> <td><%=trim(rs("useremail"))%></td> </tr> <tr> <td>送货方式:</td> <td> <% '///送货方式 set rs2=server.CreateObject("adodb.recordset") rs2.Open "select * from delivery where deliveryid="&int(rs("deliverymethord")),conn,1,1 if rs2.eof and rs2.bof then response.write "方式已被删除" else response.Write trim(rs2("subject")) end if rs2.close set rs2=nothing%> </td> </tr> <tr> <td>支付方式:</td> <td> <% set rs2=server.CreateObject("adodb.recordset") rs2.Open "select * from delivery where deliveryid="&int(rs("paymethord")),conn,1,1 if rs2.eof and rs2.bof then response.write "方式已被删除" else response.Write trim(rs2("subject")) end if rs2.close set rs2=nothing %> </td> </tr> <tr> <td>用户留言:</td> <td><%=trim(rs("comments"))%></td> </tr> <tr> <td>下单日期:</td> <td><%=rs("actiondate")%></td> </tr> <tr> <td height="32" colspan="2" align="center"> <input type="button" name="Submit3" value="删除订单" onClick="if(confirm('您确定要删除吗?')) location.href='save.asp?action=del&dan=<%=goods%>&username=<%=username%>';else return;"> <input type="button" name="Submit2" value="关闭窗口" onClick=javascript:window.close()> </td> </tr> </table> </td> </tr> </table> <%sub grade() select case rs("state") case "1"%> <input type="checkbox" name="checkbox1" value="2" DISABLED checked>未作任何处理<span style='font-family:Wingdings;'>à</span> <input type="checkbox" name="state" value="3">服务商已收到款<span style='font-family:Wingdings;'>à</span> <input type="checkbox" name="checkbox3" value="4" DISABLED>服务商已发货<span style='font-family:Wingdings;'>à</span> <input type="checkbox" name="checkbox4" value="5" DISABLED>用户已收到货 <%case "2"%> <input type="checkbox" name="checkbox1" value="2" DISABLED checked>用户已经付款<span style='font-family:Wingdings;'>à</span> <input type="checkbox" name="state" value="3">服务商已收到款<span style='font-family:Wingdings;'>à</span> <input type="checkbox" name="checkbox3" value="4" DISABLED>服务商已发货<span style='font-family:Wingdings;'>à</span> <input type="checkbox" name="checkbox4" value="5" DISABLED>用户已收到货 <%case "3"%> <input type="checkbox" name="checkbox1" value="2" DISABLED checked>未作任何处理<span style='font-family:Wingdings;'>à</span> <input type="checkbox" name="checkbox2" value="3" checked DISABLED>服务商已收到款<span style='font-family:Wingdings;'>à</span> <input type="checkbox" name="state" value="4" >服务商已发货<span style='font-family:Wingdings;'>à</span> <input type="checkbox" name="checkbox4" value="5" DISABLED>用户已收到货 <%case "4"%> <input type="checkbox" name="checkbox1" value="2" DISABLED checked>未作任何处理<span style='font-family:Wingdings;'>à</span> <input type="checkbox" name="checkbox2" value="3" DISABLED checked>服务商已收到款<span style='font-family:Wingdings;'>à</span> <input type="checkbox" name="checkbox3" value="4" DISABLED checked>服务商已发货<span style='font-family:Wingdings;'>à</span> <input type="checkbox" name="state" value="5" >用户已经收到货 <%case "5"%> <input type="checkbox" name="checkbox1" value="2" checked DISABLED>未作任何处理<span style='font-family:Wingdings;'>à</span> <input type="checkbox" name="checkbox2" value="3" checked DISABLED>服务商已收到款<span style='font-family:Wingdings;'>à</span> <input type="checkbox" name="checkbox3" value="4" checked DISABLED>服务商已发货<span style='font-family:Wingdings;'>à</span> <input type="checkbox" name="checkbox4" value="5" checked DISABLED>用户已收到货 <%end select end sub%>